############################################
###Appendix Table C6, Balance Checks ########
############################################
dat$group1 <- ifelse(dat$qVAR == 1, 1, 0)
dat$group2 <- ifelse(dat$qVAR == 2, 1, 0)
dat$group3 <- ifelse(dat$qVAR == 3, 1, 0)
dat$group4 <- ifelse(dat$qVAR == 4, 1, 0)
dat$group5 <- ifelse(dat$qVAR == 5, 1, 0)
dat$group6 <- ifelse(dat$qVAR == 6, 1, 0)
dat$group7 <- ifelse(dat$qVAR == 7, 1, 0)
dat$group8 <- ifelse(dat$qVAR == 8, 1, 0)

logit1 <- glm(group1 ~ age + gender +education +app_opp + unauth_acc+ legal_concerns, data = dat, family = "binomial")
logit2 <- glm(group2 ~ age + gender +education +app_opp + unauth_acc+ legal_concerns, data = dat, family = "binomial")
logit3 <- glm(group3 ~ age + gender +education +app_opp + unauth_acc+ legal_concerns, data = dat, family = "binomial")
logit4 <- glm(group4 ~ age + gender +education +app_opp + unauth_acc+ legal_concerns, data = dat, family = "binomial")
logit5 <- glm(group5 ~ age + gender +education +app_opp + unauth_acc+ legal_concerns, data = dat, family = "binomial")
logit6 <- glm(group6 ~ age + gender +education +app_opp + unauth_acc+ legal_concerns, data = dat, family = "binomial")
logit7 <- glm(group7 ~ age + gender +education +app_opp + unauth_acc+ legal_concerns, data = dat, family = "binomial")
logit8 <- glm(group8 ~ age + gender +education +app_opp + unauth_acc+ legal_concerns, data = dat, family = "binomial")

stargazer (logit1, logit2, logit3, logit4, logit5, logit6, logit7, logit8)
